<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in.2</name>
<id>-1</id>
<cardCount>40</cardCount>
<cardID>4853</cardID>
<listID>25216</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>on openStack--If version is old there's no point in continuing.if the version < 2.0 thenanswer "Hypercard version 2.0 or later required"go homeend if--Note: The playing pieces are a font created with Fontastic Plus.--Revolving the pieces is a simple matter of changing chars in fields.--Declare Globals and set defaultsglobal selectedPiece, moveSpeed, revolveR, revolveLput "pcA" into selectedPieceput 10 into moveSpeedput "123456781" into revolveRput "876543218" into revolveLhide menuBar--Set some buttons characteristics to default settingsset the hilite of bg btn 5 of cd "Square" to false -- slow buttonset the hilite of bg btn 6 of cd "Square" to true -- medium buttonset the hilite of bg btn 7 of cd "Square" to false -- fast buttonset the hilite of bg btn "A" of cd "Square" to true -- Btn Aend openStackon hiliteMerepeat with x = 14 to 20set the hilite of bg btn x to falseend repeatset the hilite of the target to trueend hiliteMeon closeStackshow menuBarend closeStack</script>